set exeName=EXCEL.exe
for /f "tokens=*" %%i in ('dir /a/b/s/on "%ProgramFiles%\*%exeName%"') do (set exePath="%%i")
Set MacroName=clearpassword
%exePath%  "%~dp0\bat.xlsm"
exit